 subroutine symxyz(CMPGRP)
 use mod_symm
 use mod_iop

 implicit none
 character*3, intent(in) :: CMPGRP
        IF(CMPGRP(1:3)=='C2 '.or.CMPGRP(1:3)=='C s'.or.CMPGRP(1:3)=='Cs ') THEN
         SYMRX = 2
         SYMRY= 2
         SYMRZ= 1
      ENDIF
      IF(CMPGRP(1:3)=='C2v') THEN
         SYMRX = 2
         SYMRY = 3
         SYMRZ = 4
      ENDIF
      IF(CMPGRP(1:3)=='C2h') THEN
         SYMRX = 4
         SYMRY = 4
         SYMRZ = 1
      ENDIF
      IF(CMPGRP(1:3)=='D2 ') THEN
         SYMRX = 3
         SYMRY = 2
         SYMRZ = 4
      ENDIF
      IF(CMPGRP(1:3)=='D2h') THEN
         SYMRX = 2
         SYMRY = 3
         SYMRZ = 4
      ENDIF
      IF(CMPGRP(1:3)=='C1 '.or.CMPGRP(1:3)=='C i') THEN
         SYMRX = 1
         SYMRY = 1
         SYMRZ = 1
      ENDIF
      return
      end 
